#!C:\strawberry\perl\bin\perl.exe

use LWP::UserAgent;
use HTTP::Request::Common qw(POST GET);

my $ua = LWP::UserAgent->new();
my $req = GET 'http://admin:123@localhost:8080/exist/rest/db/miColeccion/?_query=//link';
my $res = $ua->request($req);
print "Resultado:\n",$res->content,"\n";